﻿Public Class Frmconfronta

    Private Sub Frmconfronta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Size = New Size(Screen.PrimaryScreen.WorkingArea.Width / 2, Screen.PrimaryScreen.WorkingArea.Height)
        Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Left, Screen.PrimaryScreen.WorkingArea.Top)



        For Each item In Form1.ListBox1.Items
            ListBox1.Items.Add(item)

        Next

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Try
            AxAcroPDF1.LoadFile(ListBox1.SelectedItem.ToString)
        Catch
        End Try

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
        Frmconfronta2.Close()

    End Sub
End Class